home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / userras / userrasw.exe / UserRas.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-11-04  |  7.7 KB  |  259 lines
  1. VERSION 5.00
  2. Object = "{32BA9C2B-71B1-11D2-A3C4-00C04FA30E7F}#1.0#0"; "UserRas.dll"
  3. Begin VB.Form Form1 
  4.    Caption         =   "DameWare User RAS Admin Sample"
  5.    ClientHeight    =   4305
  6.    ClientLeft      =   60
  7.    ClientTop       =   360
  8.    ClientWidth     =   4980
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   4305
  11.    ScaleWidth      =   4980
  12.    StartUpPosition =   2  'CenterScreen
  13.    Begin VB.CommandButton Command4 
  14.       Caption         =   "Disconnect User"
  15.       Height          =   375
  16.       Left            =   3000
  17.       TabIndex        =   10
  18.       Top             =   1800
  19.       Width           =   1335
  20.    End
  21.    Begin VB.CommandButton Command3 
  22.       Caption         =   "Connect User"
  23.       Height          =   375
  24.       Left            =   3000
  25.       TabIndex        =   9
  26.       Top             =   1320
  27.       Width           =   1335
  28.    End
  29.    Begin VB.TextBox Text4 
  30.       Height          =   285
  31.       IMEMode         =   3  'DISABLE
  32.       Left            =   960
  33.       PasswordChar    =   "*"
  34.       TabIndex        =   2
  35.       Text            =   "Text4"
  36.       Top             =   1320
  37.       Width           =   1455
  38.    End
  39.    Begin VB.TextBox Text1 
  40.       Height          =   285
  41.       Left            =   960
  42.       TabIndex        =   0
  43.       Text            =   "Text1"
  44.       Top             =   120
  45.       Width           =   1455
  46.    End
  47.    Begin VB.TextBox Text2 
  48.       Height          =   285
  49.       Left            =   960
  50.       TabIndex        =   1
  51.       Text            =   "Text2"
  52.       Top             =   720
  53.       Width           =   1455
  54.    End
  55.    Begin VB.CommandButton Command1 
  56.       Caption         =   "Get RAS Info"
  57.       Default         =   -1  'True
  58.       Height          =   375
  59.       Left            =   3000
  60.       TabIndex        =   7
  61.       Top             =   120
  62.       Width           =   1335
  63.    End
  64.    Begin VB.CommandButton Command2 
  65.       Caption         =   "Set RAS Info"
  66.       Height          =   375
  67.       Left            =   3000
  68.       TabIndex        =   8
  69.       Top             =   600
  70.       Width           =   1335
  71.    End
  72.    Begin VB.CheckBox Check1 
  73.       Caption         =   "Grant &dialin permission to user"
  74.       Height          =   375
  75.       Left            =   240
  76.       TabIndex        =   3
  77.       Top             =   1800
  78.       Width           =   2655
  79.    End
  80.    Begin VB.Frame Frame1 
  81.       Caption         =   "Call Back"
  82.       Height          =   1935
  83.       Left            =   120
  84.       TabIndex        =   11
  85.       Top             =   2280
  86.       Width           =   4695
  87.       Begin VB.OptionButton Option1 
  88.          Caption         =   "&No Call Back"
  89.          Height          =   255
  90.          Left            =   720
  91.          TabIndex        =   4
  92.          Top             =   480
  93.          Value           =   -1  'True
  94.          Width           =   1335
  95.       End
  96.       Begin VB.OptionButton Option2 
  97.          Caption         =   "&Set By Caller"
  98.          Height          =   255
  99.          Left            =   720
  100.          TabIndex        =   5
  101.          Top             =   840
  102.          Width           =   1455
  103.       End
  104.       Begin VB.OptionButton Option3 
  105.          Caption         =   "&Preset To:"
  106.          Height          =   255
  107.          Left            =   720
  108.          TabIndex        =   6
  109.          Top             =   1200
  110.          Width           =   1215
  111.       End
  112.       Begin VB.TextBox Text3 
  113.          Height          =   375
  114.          Left            =   1920
  115.          TabIndex        =   12
  116.          Top             =   1200
  117.          Width           =   2175
  118.       End
  119.    End
  120.    Begin VB.Shape Shape1 
  121.       BackStyle       =   1  'Opaque
  122.       FillColor       =   &H00FFFFFF&
  123.       FillStyle       =   0  'Solid
  124.       Height          =   495
  125.       Left            =   4440
  126.       Shape           =   3  'Circle
  127.       Top             =   240
  128.       Width           =   495
  129.    End
  130.    Begin VB.Label Label3 
  131.       Caption         =   "Password:"
  132.       Height          =   255
  133.       Left            =   120
  134.       TabIndex        =   16
  135.       Top             =   1320
  136.       Width           =   855
  137.    End
  138.    Begin USERRASLibCtl.UserRasCtl UserRasCtl1 
  139.       Height          =   480
  140.       Left            =   4440
  141.       TabIndex        =   15
  142.       Top             =   1320
  143.       Width           =   480
  144.       _cx             =   4457295
  145.       _cy             =   4457295
  146.       Enabled         =   0   'False
  147.       Valid           =   0   'False
  148.       UserID          =   ""
  149.       Machine         =   ""
  150.       Password        =   ""
  151.       RasNoCallback   =   0   'False
  152.       RasAdminSetCallback=   0   'False
  153.       RasCallerSetCallback=   0   'False
  154.       RasDialinPrivilege=   0   'False
  155.       RasCallBackNumber=   ""
  156.    End
  157.    Begin VB.Label Label1 
  158.       Caption         =   "Machine:"
  159.       Height          =   255
  160.       Left            =   120
  161.       TabIndex        =   14
  162.       Top             =   120
  163.       Width           =   735
  164.    End
  165.    Begin VB.Label Label2 
  166.       Caption         =   "User ID:"
  167.       Height          =   255
  168.       Left            =   120
  169.       TabIndex        =   13
  170.       Top             =   720
  171.       Width           =   735
  172.    End
  173. Attribute VB_Name = "Form1"
  174. Attribute VB_GlobalNameSpace = False
  175. Attribute VB_Creatable = False
  176. Attribute VB_PredeclaredId = True
  177. Attribute VB_Exposed = False
  178. Private Sub Command1_Click()
  179. On Error GoTo ErrorHandler
  180. Shape1.FillColor = &H80FFFF    'yellow busy
  181. Shape1.Refresh
  182. UserRasCtl1.Machine = Text1.Text
  183. UserRasCtl1.UserID = Text2.Text
  184. UserRasCtl1.GetRasInfo
  185. If UserRasCtl1.RasDialinPrivilege Then
  186.     Check1.Value = 1
  187.     Check1.Value = 0
  188. End If
  189. Option1.Value = UserRasCtl1.RasNoCallback
  190. Option2.Value = UserRasCtl1.RasCallerSetCallback
  191. Option3.Value = UserRasCtl1.RasAdminSetCallback
  192. Text3.Text = UserRasCtl1.RasCallBackNumber
  193. Shape1.FillColor = &H80FF80 ' green - returned ok
  194. Shape1.Refresh
  195. Exit Sub
  196. ErrorHandler:
  197.     OnErrorHandler
  198. End Sub
  199. Private Sub Command2_Click()
  200. On Error GoTo ErrorHandler
  201. Shape1.FillColor = &H80FFFF    'yellow busy
  202. Shape1.Refresh
  203. UserRasCtl1.Machine = Text1.Text
  204. UserRasCtl1.UserID = Text2.Text
  205. UserRasCtl1.RasNoCallback = Option1.Value
  206. UserRasCtl1.RasCallerSetCallback = Option2.Value
  207. UserRasCtl1.RasAdminSetCallback = Option3.Value
  208. UserRasCtl1.RasCallBackNumber = Text3.Text
  209. If Check1.Value Then
  210.     UserRasCtl1.RasDialinPrivilege = True
  211.     UserRasCtl1.RasDialinPrivilege = False
  212. End If
  213. UserRasCtl1.SetRasInfo
  214. Shape1.FillColor = &H80FF80 ' green - returned ok
  215. Shape1.Refresh
  216. Exit Sub
  217. ErrorHandler:
  218.     OnErrorHandler
  219. End Sub
  220. Private Sub Command3_Click()
  221. On Error GoTo ErrorHandler
  222. Shape1.FillColor = &H80FFFF    'yellow busy
  223. Shape1.Refresh
  224. UserRasCtl1.Machine = Text1.Text
  225. UserRasCtl1.UserID = Text2.Text
  226. UserRasCtl1.Password = Text4.Text
  227. UserRasCtl1.UserConnect
  228. Shape1.FillColor = &H80FF80 ' green - returned ok
  229. Shape1.Refresh
  230. Exit Sub
  231. ErrorHandler:
  232.     OnErrorHandler
  233. End Sub
  234. Private Sub Command4_Click()
  235. On Error GoTo ErrorHandler
  236. Shape1.FillColor = &H80FFFF    'yellow busy
  237. Shape1.Refresh
  238. UserRasCtl1.Machine = Text1.Text
  239. UserRasCtl1.UserDisconnect
  240. Shape1.FillColor = &H80FF80 ' green - returned ok
  241. Shape1.Refresh
  242. Exit Sub
  243. ErrorHandler:
  244.     OnErrorHandler
  245. End Sub
  246. Private Sub Form_Load()
  247. Text1.Text = UserRasCtl1.GetMachineName
  248. Text2.Text = UserRasCtl1.GetCurrentUserID
  249. 'UserRasCtl1.Machine
  250. End Sub
  251. Sub OnErrorHandler()
  252. Shape1.FillColor = &HFF&       ' red - failed
  253. Shape1.Refresh
  254. 'MsgBox "Last error was " & UserRasCtl1.LastError
  255. If Err.Number <> 0 Then
  256.     MsgBox Err.Description, vbCritical, "Error"
  257. End If
  258. End Sub
  259.